home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / JTools / IFF / iff.j < prev    next >
Encoding:
Text File  |  1991-12-03  |  1.1 KB  |  63 lines
  1. \ Includes for IFF support.
  2. \ There are other types of IFF structure not defined here.
  3.  
  4. : CHKID ( <chkid> <name> -- , define chkid )
  5.     "      " here $move
  6.     32 word count drop odd@ constant
  7. ;
  8.  
  9. chkid FORM 'FORM'
  10. chkid LIST 'LIST'
  11. chkid CAT  'CAT'
  12. chkid PROP 'PROP'
  13.  
  14. chkid ILBM 'ILBM'
  15. chkid BMHD 'BMHD'
  16. chkid CMAP 'CMAP'
  17. chkid CRNG 'CRNG'
  18. chkid BODY 'BODY'
  19. chkid GRAB 'GRAB'
  20. chkid TRAK 'TRAK'
  21. chkid SMUS 'SMUS'
  22. chkid CAMG 'CAMG'
  23. chkid INS1 'INS1'
  24. chkid SHDR 'SHDR'
  25. chkid 8SVX '8SVX'
  26. chkid VHDR 'VHDR'
  27. chkid ATAK 'ATAK'
  28. chkid NAME 'NAME'
  29. chkid AUTH 'AUTH'
  30. chkid (C)  '(C)'
  31.  
  32. \ Used in 8SVX files
  33. :STRUCT Voice8Header
  34.     ULONG v8h_OneShotHiSamples
  35.     ULONG v8h_RepeatHiSamples
  36.     ULONG v8h_SamplesPerHiCycle
  37.     USHORT v8h_SamplesPerSec
  38.     UBYTE v8h_ctOctave
  39.     UBYTE v8h_sCompression
  40.     LONG  v8h_volume
  41. ;STRUCT
  42.  
  43. \ Structure used by IFF ILBM
  44. :STRUCT BitMapHeader
  45.     ushort bmh_w
  46.     ushort bmh_h
  47.     short  bmh_x
  48.     short  bmh_y
  49.     ubyte  bmh_nPlanes
  50.     ubyte  bmh_masking
  51.     ubyte  bmh_compression
  52.     ubyte  bmh_pad1
  53.     ushort bmh_transparentColor
  54.     ubyte  bmh_xAspect
  55.     ubyte  bmh_yAspect
  56.     short  bmh_pagewidth
  57.     short  bmh_pageheight
  58. ;STRUCT
  59.  
  60. 0 constant cmpNone
  61. 1 constant cmpByteRun1
  62.  
  63.